Font change via script

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject: Font change via script

Feedback Type: Question

Product Area: Domino Designer on Eclipse (DDE)

Technical Area: Application Development

Platform: ALL

Release: 8.5.2

Reproducible: -Reproducibility-

Hello all,

I have a button script that modifies our users signature block to a standard set of wording and includes our company logo at the bottom. The script is working with the exception of the font change portion. Im trying to have the first portion appear in ARIAL 18 with the last line below the logo apeearing in ARIAL 9 but the code has no effect. I know that I'm missing something but cant seem to pinpoint it. ANy help would be appreciated. Thanks in advance:

Sub Click(Source As Button)
Dim sess As New NotesSession
Dim mailfile As NotesDatabase
Dim profiledoc As NotesDocument
Dim nitem As NotesItem
Dim rtitem As NotesRichTextItem
Dim stream As NotesStream
Dim mimeItem As NotesMIMEEntity
Dim header As NotesMIMEHeader
Dim child As NotesMIMEEntity
Dim fileFormat As String
Dim rtitemB As NotesRichTextItem
Dim Title As Variant
Dim Extension As Variant

Dim myName As New NotesName(sess.EffectiveUserName)

Set mailfile = sess.Currentdatabase
Set profiledoc = mailfile.GetProfileDocument("CalendarProfile")
Dim richStyle As NotesRichTextStyle
Set richStyle = sess.CreateRichTextStyle
Dim richText As New NotesRichTextItem(profiledoc, "Signature_Rich")
richStyle.NotesFont = ARIAL
richStyle.FontSize = 10
Dim richStyle2 As NotesRichTextStyle
Set richStyle2 = sess.CreateRichTextStyle
Dim richText2 As New NotesRichTextItem(profiledoc, "Signature_Rich")
richStyle2.NotesFont = ARIAL
richStyle2.FontSize = 9
Call richText.AppendStyle(richStyle)
Title = Evaluate(|@NameLookup([Exhaustive];@UserName;"Title")|)
Extension = Evaluate(|@NameLookup([Exhaustive];@UserName;"OfficePhoneNumber")|)
'Create a RTF via MIME to embedd the graphic vs attacheming
Call profiledoc.RemoveItem("Signature_Rich")
Call profiledoc.RemoveItem("DummyRichText")
Call profiledoc.save(False, False) 'JUST To REFRESH
Set stream = sess.CreateStream
Call stream.Open("M:\Drop to Sec\SaxBST.jpg")
Set mimeItem = profiledoc.CreateMIMEEntity("DummyRichText")
Set header = mimeItem.CreateHeader("Content-Type")
Call header.SetHeaderVal("multipart/mixed")
Set child = mimeItem.CreateChildEntity() 'Set childEntity = richTextItemObj.CreateChildEntity()
fileFormat = "image/jpeg" 'Other formats are “image/gif” “image/bmp”
Call child.Setcontentfrombytes(stream, fileformat, 1730)
Call stream.Close()

Call profiledoc.save(False, False) 'JUST To REFRESH
Set rtitemB = profiledoc.GetFirstItem("DummyRichText")

'Set rtItem = profiledoc.Createrichtextitem("Signature_Rich")
Set rtItem = profiledoc.CreateRichTextitem("Signature_Rich")
'add the rich text content
Call rtItem.Addnewline(1)
Call rtItem.Appendtext(myName.Common)
Call rtItem.Addnewline(1)
Call rtItem.Appendtext(Title(0))
Call rtItem.Addnewline(1)
Call rtItem.AppendText("Our Company Name")
Call rtItem.AddNewline(1)
Call rtItem.Appendtext("Company Address")
Call rtItem.Addnewline(1)
Call rtItem.Appendtext("City State Zip")
Call rtItem.Addnewline(1)
Call rtItem.Appendtext("Phone Number" & " Ext. " & Extension(0))
Call rtItem.Addnewline(1)
Call rtItem.Appendtext("Web URL")
Call rtItem.Addnewline(2)
Call richText.AppendStyle(richStyle2)
Call rtItem.Appendtext("Arial 9 point text goes here")
Set rtitemB = profiledoc.GetFirstItem("DummyRichText")
Call rtitem.AppendRTItem( rtitemB )

Call rtitemB.Remove()

'set enable the signature and for it to be a richt text signature
Set nitem = profiledoc.Replaceitemvalue("SignatureOption", "3")
Set nitem = profiledoc.Replaceitemvalue("EnableSignature", "1")
Call profiledoc.Save(True, False)
End Sub

Feedback number WEBB9CCLHQ created by ~Elizabeth Opfoobergetsi on 10/10/2013

Status: Open
Comments: